/* GUI CONVERTED from rcsoiq.p (converter v1.76) Fri May  3 13:22:21 2002 */
/* rcsoiq.p - Release Management Customer Schedules                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.8.3.5 $                                                         */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 7.3    LAST MODIFIED: 09/30/92           BY: WUG *G462*    */
/* REVISION: 7.3    LAST MODIFIED: 08/13/93           BY: WUG *GE19*    */
/* REVISION: 7.3    LAST MODIFIED: 07/01/94           BY: afs *GK58*    */
/* REVISION: 7.3    LAST MODIFIED: 10/19/94           BY: ljm *GN40*    */
/* REVISION: 7.3    LAST MODIFIED: 12/15/94           BY: rxm *GN16*    */
/* REVISION: 7.3    LAST MODIFIED: 03/23/95           BY: aed *G0J0*    */
/* REVISION: 7.4    LAST MODIFIED: 04/24/95           BY: dpm *J044*    */
/* REVISION: 8.5    LAST MODIFIED: 08/28/95           BY: kxn *J077*    */
/* REVISION: 7.4    LAST MODIFIED: 10/07/95           BY: vrn *G0YL*    */
/* REVISION: 8.5    LAST MODIFIED: 10/15/96       BY: *G2GJ* Ajit Deodhar     */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98       BY: *K1Q4* Alfred Tan       */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00       BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00       BY: *N0KP* myb              */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.8.3.4    BY: Patrick Rowan       DATE: 04/24/01  ECO: *P00G*   */
/* $Revision: 1.8.3.5 $   BY: Katie Hilbert       DATE: 04/15/02  ECO: *P03J*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SCHEDULED ORDER INQUIRY */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdtitle.i "2+ "}
define new shared variable all_days  like soc_all_days.
define new shared variable all_avail like soc_all_avl.
define new shared variable sotax_trl like tax_trl.
define new shared variable tax_recno as recid.
define new shared variable cmtindx   like cmt_indx.
define variable tax_date             like tax_effdate.
define variable del-yn               like mfc_logical.
define variable yn                   like mfc_logical.
define variable line                 as integer.
define variable i                    as integer.
define variable impexp               like mfc_logical no-undo.
define buffer scxref for scx_ref.

/* CONSIGNMENT VARIABLES */
define variable proc_id as character no-undo.
{socnvars.i}

{rcordfrm.i}

/*GUI preprocessor Frame A define */
&SCOPED-DEFINE PP_FRAME_NAME A

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
{rcordfma.i}
with frame a side-labels width 80 attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-a-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame a = F-a-title.
 RECT-FRAME-LABEL:HIDDEN in frame a = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame a =
  FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME a = FRAME a:WIDTH-CHARS - .5.  /*GUI*/

/*GUI preprocessor Frame A undefine */
&UNDEFINE PP_FRAME_NAME



/* SET EXTERNAL LABELS */
setFrameLabels(frame a:handle).

FORM /*GUI*/ 
   {rcordfma.i}
         skip(.4)   
with STREAM-IO /*GUI*/  frame prm side-labels width 80 attr-space.

/* SET EXTERNAL LABELS */
setFrameLabels(frame prm:handle).

find first soc_ctrl no-lock.
find first gl_ctrl no-lock.

socmmts = soc_hcmmts.

/* DETERMINE IF CUSTOMER CONSIGNMENT IS ACTIVE */
{gprun.i ""gpmfc01.p""
   "(input ENABLE_CUSTOMER_CONSIGNMENT,
     input 10,
     input ADG,
     input CUST_CONSIGN_CTRL_TABLE,
     output using_cust_consignment)"}

if no then find first sod_det no-lock.

view frame a.

mainloop:
repeat:
   hide frame prm no-pause.
   hide frame sod2 no-pause.
   hide frame sod1 no-pause.
   {rcgetord.i "old" }

   find pt_mstr where pt_part = scx_part no-lock.

   find so_mstr where so_nbr = scx_order no-lock.
   find sod_det where sod_nbr = scx_order
      and sod_line = scx_line no-lock.
   if available pt_mstr then l_desc1 = pt_desc1.
   else if available sod_det then
      l_desc1 = sod_desc.
   else
      l_desc1 = "".

   find cm_mstr where cm_addr = so_cust no-lock.

   /* OUTPUT DESTINATION SELECTION */
   {gpselout.i &printType = "terminal"
               &printWidth = 80
               &pagedFlag = " "
               &stream = " "
               &appendToFile = " "
               &streamedOutputToTerminal = " "
               &withBatchOption = "no"
               &displayStatementType = 1
               &withCancelMessage = "yes"
               &pageBottomMargin = 6
               &withEmail = "yes"
               &withWinprint = "yes"
               &defineVariables = "yes"}
/*GUI*/ RECT-FRAME:HEIGHT-PIXELS in frame a = FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.


   hide frame a.
   {rcsoiq.i}

   {mfreset.i}
/*GUI*/ {mfgrptrm.i} /*Report-to-Window*/

   {pxmsg.i &MSGNUM=8 &ERRORLEVEL=1}
end.
